5 POKE53280,0:POKE53281,0:GOSUB300
10 PRINTCHR$(14);:INPUT"[147][159][208]ROGRAM OR [211]EQUENTIAL?  P/S";FT$
15 INPUT"[193][211][195][201][201] OR [211]CREEN [195]ODE?  A/S";A$
20 AD=0:IFA$="S"THENAD=64
30 INPUT "[198]ORM FILENAME";FF$
40 INPUT "[196]ATA FILENAME";DF$
50 OPEN2,8,2,(FF$)
60 OPEN3,8,3,(DF$)
70 OPEN4,8,4,""+LEFT$(FF$,14)+".2,"+FT$+",W"
80 :
90 GET#3,A$:IF ST>0 THEN 150
100 IFA$=""THEN90
110 A=ASC(A$)+AD
120 IF A<>91 THEN 90
130 GET#3,A$:A=ASC(A$)+AD:IF A=93 THEN T=T+1:GOTO 90
140 DA$(T)=DA$(T)+A$:GOTO 130
150 CLOSE 3:PRINT:PRINT"[214]ARIABLES FOUND:"T:PRINT
160 :
170 GET#2,A$:IF ST>0 THEN 260
180 IFA$=""THEN240
190 A=ASC(A$)+AD
200 IFA<>92THEN240
210 GET #2,B$:IF ST>0 THEN FL=1
220 B=VAL(B$):IF B<0 OR B>9 THEN PRINT#4,A$;B$;:GOTO250
230 PRINT#4,DA$(B);:V=V+1:PRINT V;:GOTO250
240 PRINT#4,A$;
250 IF FL=0 THEN 170
260 CLOSE2:CLOSE4
270 PRINT:PRINT"[193]NOTHER?  Y/N"
280 GETA$:IFA$=""THEN280
290 IFA$="Y"THENRUN
295 END
300 PRINT"[147][129]           [209]&[196] [215][208] [205][197][210][199][197]"
310 PRINT"[159]    [194]EFORE MERGING, YOU NEED TO CREATE"
320 PRINT"A FORM FILE THAT HAS \0, \1, \2, ETC."
330 PRINT"IN PLACES WHERE YOU WOULD LIKE DATA"
340 PRINT"INSERTED.  [212]HEN, USING THE SAME WORD"
350 PRINT"PROCESSOR, CREATE A DATA FILE THAT HAS"
360 PRINT"THE DATA TO BE INSERTED LISTED, ONE"
370 PRINT"LINE AT A TIME, IN BRACKETS."
380 PRINT"    [194]EFORE YOU CONTINUE "CHR$(34)"[215][207][210][196] [205][197][210][199][197]"CHR$(34)","
390 PRINT"YOU NEED TO DETERMINE WHETHER YOUR WORD"
400 PRINT"PROCESSOR USES [208][210]O[199]RAM OR [211][197][209]UENTIAL"
410 PRINT"FILES, AND WHETHER IT USES [193][211][195][201][201] OR"
420 PRINT"SCREEN CODE.  [201]F YOU DON'T KNOW, USE"
430 PRINT"THE TRUSTY TRIAL-AND-ERROR METHOD.
440 [153]"        (null)RESS (null)(null)ATNLENVAL TO CONTINUE"
450 [161]A$:[139]A$[178]""[167]450
460 [142]